home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n06.arc / MONO.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-02-28  |  4.7 KB  |  69 lines
  1. 100 REM - BASIC PROGRAM TO CREATE MONO.COM    
  2. 110 CLS:PRINT "Creating MONO.COM    ": OPEN "MONO.COM    " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO    50
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    50 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "MONO.COM     created successfully": SYSTEM
  17. 260 PRINT: PRINT "MONO.COM     is not valid!": END
  18. 270 DATA E9, FF,  1,  D, 20, 20, 20,  D,  A, 4D, 4F, 4E, 4F, 20, 31, 2E,   425
  19. 280 DATA 30, 20, 28, 63, 29, 20, 31, 39, 38, 39, 20, 5A, 69, 66, 66, 20,   3CE
  20. 290 DATA 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43,   62C
  21. 300 DATA 6F, 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20,   4B3
  22. 310 DATA FE, 20, 4D, 69, 63, 68, 61, 65, 6C, 20, 4A, 2E, 20, 4D, 65, 66,   5A1
  23. 320 DATA 66, 6F, 72, 64,  D,  A,  A, 24, 1A,  0,  0,  0,  0,  0,  0,  0,   20A
  24. 330 DATA  0,  0,  0,  1, 9C, 2E, 80,  6, 61,  1, 40, 73,  F, 1E,  E, 1F,   2C0
  25. 340 DATA 80, 3E, 62,  1,  1, 74,  4, FB, E8, 42,  0, 1F, 9D, 2E, FF, 2E,   5D6
  26. 350 DATA 59,  1, 50, 9C, 1E, B8, 40,  0, 8E, D8, F6,  6, 17,  0,  8, 74,   551
  27. 360 DATA 23, E4, 60, 3C, 32, 75, 1D, 2E, 80, 36, 63,  1,  1, E4, 61,  C,   501
  28. 370 DATA 80, EB,  0, E6, 61, 24, 7F, EB,  0, E6, 61, 1F, 9D, FA, B0, 20,   80D
  29. 380 DATA E6, 20, 58, CF, 1F, 9D, 58, 2E, FF, 2E, 5D,  1, C3, FC, 80, 3E,   777
  30. 390 DATA 63,  1,  0, 74, F7, C6,  6, 62,  1,  1, 50, 1E, B8, 40,  0, 8E,   4F3
  31. 400 DATA D8, A0, 49,  0, 3C,  3, 76,  4, 3C,  7, 75, 73, 53, 51, 52, 57,   4F2
  32. 410 DATA  6, A1, 4A,  0, 8A,  E, 84,  0,  A, C9, 75,  2, B1, 18, FE, C1,   5DF
  33. 420 DATA F6, E1, 8B, C8, 8B, 16, 63,  0, 83, C2,  6, 8B, 3E, 4E,  0, 47,   6D7
  34. 430 DATA B8,  0, B0, 81, FA, BA,  3, 74,  3,  5,  0,  8, 8E, D8, 8E, C0,   6D8
  35. 440 DATA BB,  7, 70, 90, 90, 8A,  5, 8A, E7, 84, C4, 75,  2, 8A, E3, 24,   7A2
  36. 450 DATA 88,  A, C4, AA, 47, E2, EE, EB, 21, 8A, 25, 8A, C7, 84, E0, 75,   8FC
  37. 460 DATA  2, 8A, C3, 80, E4, 88,  A, E0, EC, A8,  1, 75, FB, FA, EC, A8,   9B8
  38. 470 DATA  1, 74, FB, 86, C4, AA, FB, 47, E2, DF,  7, 5F, 5A, 59, 5B, 1F,   7FA
  39. 480 DATA 58, C6,  6, 62,  1,  0, C3, 53, 79, 6E, 74, 61, 78, 3A, 20, 20,   54B
  40. 490 DATA 4D, 4F, 4E, 4F, 20, 5B, 55, 5D,  D,  A, 55, 20, 3D, 20, 75, 6E,   432
  41. 500 DATA 69, 6E, 73, 74, 61, 6C, 6C,  D,  A, 48, 6F, 74, 20, 6B, 65, 79,   5A2
  42. 510 DATA 20, 3D, 20, 20, 41, 6C, 74, 20, 4D,  D,  A,  A, 24, 4D, 4F, 4E,   35A
  43. 520 DATA 4F, 20, 6E, 6F, 74, 20, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64,  D,   5AD
  44. 530 DATA  A, 24, 4D, 4F, 4E, 4F, 20, 63, 61, 6E, 27, 74, 20, 75, 6E, 69,   4C0
  45. 540 DATA 6E, 73, 74, 61, 6C, 6C,  D,  A, 24, 4E, 6F, 74, 20, 65, 6E, 6F,   55C
  46. 550 DATA 75, 67, 68, 20, 6D, 65, 6D, 6F, 72, 79,  D,  A, 24, 4D, 65, 6D,   557
  47. 560 DATA 6F, 72, 79, 20, 61, 6C, 6C, 6F, 63, 61, 74, 69, 6F, 6E, 20, 65,   625
  48. 570 DATA 72, 72, 6F, 72,  D,  A,  7, 24, 49, 6E, 73, 74, 61, 6C, 6C, 65,   543
  49. 580 DATA 64,  D,  A, 24, 55, 6E, 69, 6E, 73, 74, 61, 6C, 6C, 65, 64,  D,   52F
  50. 590 DATA  A, 24, FC, BB,  0,  1, F6, 17, 33, D2, 8C, C8, 42, 8E, C2, 3B,   719
  51. 600 DATA D0, 74,  B, 8B, F3, 8B, FB, B9, 10,  0, F3, A6, 75, EE, BA,  3,   8D5
  52. 610 DATA  1, E8, E8,  0, BA, 57,  2, E8, E2,  0, BE, 81,  0, AC, 3C,  D,   6E2
  53. 620 DATA 74, 10, 24, 5F, 3C, 55, 75, F5, E8, CA,  0, BA, 8D,  2, 74, 5E,   6CF
  54. 630 DATA EB, 65, E8, C0,  0, 74,  4, 32, C0, EB, 58, BD, 57,  2, 83, C5,   803
  55. 640 DATA  F, 3B, 2E,  6,  0, BA, B9,  2, 77, 44, B8,  8, 35, CD, 21, 89,   51A
  56. 650 DATA 1E, 59,  1, 8C,  6, 5B,  1, BA, 64,  1, B8,  8, 25, CD, 21, B8,   510
  57. 660 DATA  9, 35, CD, 21, 89, 1E, 5D,  1, 8C,  6, 5F,  1, BA, 82,  1, B8,   518
  58. 670 DATA  9, 25, CD, 21, A1, 2C,  0, 8E, C0, B4, 49, CD, 21, BA, E8,  2,   6C6
  59. 680 DATA E8, 79,  0, 8B, D5, B1,  4, D3, EA, B8,  0, 31, CD, 21, E8, 6B,   85D
  60. 690 DATA  0, B0,  1, B4, 4C, CD, 21, 8C, C1, B8,  8, 35, CD, 21, 81, FB,   74B
  61. 700 DATA 64,  1, 75, 4A, 8C, C3, 3B, D9, 75, 44, B8,  9, 35, CD, 21, 81,   6A5
  62. 710 DATA FB, 82,  1, 75, 39, 8C, C3, 3B, D9, 75, 33, B4, 49, CD, 21, BA,   7DC
  63. 720 DATA CD,  2, 72, CA, 26, 8B, 16, 59,  1, 26, 8E, 1E, 5B,  1, B8,  8,   51A
  64. 730 DATA 25, CD, 21, 26, 8B, 16, 5D,  1, 26, 8E, 1E, 5F,  1, B8,  9, 25,   450
  65. 740 DATA CD, 21,  E, 1F, BA, F4,  2, E8, 12,  0,  A, C0, EB, A5, 8E, C1,   76E
  66. 750 DATA BA, A2,  2, EB, 99, 8C, C0, 8C, CB, 3B, C3, C3, B4,  9, CD, 21,   8F1
  67. 760 DATA C3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,    C3
  68. 770 DATA 76091
  69.